home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / modula2 / 353 < prev    next >
Encoding:
Text File  |  1996-08-06  |  1.1 KB  |  50 lines
  1. Newsgroups: comp.lang.modula2
  2. Path: cix.compulink.co.uk!usenet
  3. From: mark_tbu@cix.compulink.co.uk ("Mark Morgan Lloyd ")
  4. Subject: Re: xor procedure for M-2
  5. Message-ID: <DnFtME.7GA@cix.compulink.co.uk>
  6. Organization: KDG Mobrey Telemetry
  7. References: <francosky.1.1.3132950B@postbox.acs.ohio-state.edu>
  8. Date: Tue, 27 Feb 1996 14:01:25 GMT
  9. X-News-Software: Ameol
  10.  
  11. >       
  12. > 
  13. >       if someone could give me a simple way to write a program to 
  14. compute 
  15. > the value
  16. > of xors in modula2 it would be appreciated.\
  17. > 
  18. > like a function that returns the decimal value 26 for xor(12, 22)   
  19. > (12 xor 22)
  20. > 
  21. > later
  22. > send to emial
  23. > 
  24.  
  25. <sigh>
  26.  
  27. Article: 7435 of comp.lang.modula2
  28. Newsgroups: comp.lang.modula2
  29. Subject: Re: XOR function
  30. Organization: KDG Mobrey Telemetry
  31. References: <1996Feb8.114044.15072@ucl.ac.uk>
  32. X-News-Software: Ameol
  33.  
  34. MODULE Demo;
  35.  
  36. VAR     a, b, c: CARDINAL;
  37.  
  38. BEGIN
  39.   IF SIZE(CARDINAL) <> SIZE(BITSET) THEN        (* Paranoid? Me?        *)
  40.     UserBreak
  41.   END;
  42.   c:= CARDINAL(BITSET(a) / BITSET(b))
  43. END Demo.
  44.  
  45. Mark Morgan Lloyd
  46. mark_tbu@cix.compulink.co.uk
  47.  
  48. [Opinions above are the author's, not those of his employers or 
  49. colleagues]
  50.